home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 6 / FM Towns Free Software Collection 6.iso / t_os / na386 / lnadd.bas < prev    next >
BASIC Source File  |  1993-07-08  |  420b  |  21 lines
  1. 100 '
  2. 110 '   行番号付加プログラム  Ver1.0    by N.Takahashi
  3. 120 '
  4. 130 LINE INPUT "file name ?";FL$
  5. 140 INPUT "start line number ?",LN
  6. 150 OPEN "I",#1,FL$
  7. 160 OPEN "O",#2,"LNADD.TMP"
  8. 170 '
  9. 180 WHILE EOF(1)<>-1
  10. 190   LINE INPUT #1,A$
  11. 200   B$=MID$(STR$(LN),2)+"'"+A$ : LN=LN+10
  12. 210   PRINT B$
  13. 220   PRINT #2,B$
  14. 230 WEND
  15. 240 '
  16. 250 CLOSE #1
  17. 260 CLOSE #2
  18. 270 KILL FL$
  19. 280 NAME "LNADD.TMP" AS FL$
  20. 290 END
  21.